home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_69_load rgb.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  2.1 KB  |  45 lines
  1. global gSize, gCurrentColor, gFirstColor, gPatScrListSelect, gPatternThumbLoc, gPatternScreenBlend, gPatternScreenBoxHeight, gFontListBoxHeight
  2.  
  3. on prepareFrame me
  4.   gPatternScreenBoxHeight = (member("pattern screen list").lineCount * member("pattern screen list").lineHeight) - (4 * member("pattern screen list").lineHeight)
  5.   gFontListBoxHeight = (member("fonts").lineCount * member("fonts").lineHeight) - (5 * member("fonts").lineHeight)
  6.   if gPatScrListSelect = 1 then
  7.     member("pattern screen preview").image.fill(member("pattern screen preview").rect, rgb(255, 255, 255))
  8.     member("pattern temp").image.fill(member("pattern temp").rect, paletteIndex(0))
  9.     member("pattern screen list").scrollTop = 0
  10.     hilite char 1 to member("pattern screen list").text.line[1].length + 1 of field "pattern screen list"
  11.     sprite(235).blend = 100
  12.     put "100" into field "pattern screen opacity"
  13.     gPatternThumbLoc = sprite(159).locV
  14.     gPatternScreenBlend = sprite(235).blend
  15.     gPatScrListSelect = VOID
  16.   else
  17.     sprite(159).locV = gPatternThumbLoc
  18.     sprite(235).blend = gPatternScreenBlend
  19.     put gPatternScreenBlend into field "pattern screen opacity"
  20.   end if
  21.   if the text of field "current font" = line 1 of field "fonts" then
  22.     hilite char 1 to member("fonts").text.line[1].length + 1 of field "fonts"
  23.   end if
  24.   if sprite(47).rect = rect(598, 43, 622, 67) then
  25.     nothing()
  26.   else
  27.     sprite(47).rect = rect(598, 13, 622, 37)
  28.     gCurrentColor = gFirstColor
  29.     sendSprite(181, #updatecolors)
  30.   end if
  31.   if the text of field "font size" > (integer(gSize) * 2) then
  32.     set the text of field "font size" to string(integer(gSize) * 2)
  33.     member("image text").fontSize = integer(gSize) * 2
  34.   end if
  35.   if the text of field "kerning" < -(integer(gSize) / 8) then
  36.     set the text of field "kerning" to string(-(integer(gSize) / 8))
  37.     member("image text").CharSpacing = -(integer(gSize) / 8)
  38.   else
  39.     if the text of field "kerning" > (integer(gSize) / 8) then
  40.       set the text of field "kerning" to string(integer(gSize) / 8)
  41.       member("image text").CharSpacing = integer(gSize) / 8
  42.     end if
  43.   end if
  44. end
  45.